home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t3.d64 / design.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  301b  |  16 lines
  1. 1 IFPEEK(49152)<>96THENLOAD"GRAFIX RTNS",8,1
  2. 10 BA=49153:SYS BA,1,2,0,0
  3. 15 FOR I=1 TO 0 STEP -.1
  4. 17 J=J+1:IFJ>2THENJ=1
  5. 20 FOR X=0 TO 64
  6. 30 X1=80+X*I:X2=80-X*I
  7. 40 Y=SQR((64-X)*100)
  8. 50 Y1=100+Y:Y2=100-Y
  9. 60 SYSBA+6,Y1,X1,J
  10. 61 SYSBA+6,Y2,X1,J
  11. 62 SYSBA+6,Y2,X2,J
  12. 63 SYSBA+6,Y1,X2,J
  13. 70 NEXT:NEXT
  14. 80 GETA$:IFA$=""GOTO80
  15. 90 SYSBA+9:PRINT"[147]";
  16.